'dim a,b
'a = 12
'b = 1
'if a>b then msgbox("a")
'if a=b then thenmsgbox("等于")
'if a<b then thenmsgbox("b")

'dim a
'a = inputbox("输入一个数进行判断")
'a = int(a)
'if a<10 then 
'msgbox("这个数是小于10的")
'elseif a<100 then 
'msgbox("这个数是小于100的")
'elseif a<1000 then 
'msgbox("这个数是小于1000的")
'end if
'在进行if判断时候，可以添加任意多个 ElseIf 子句以提供多种选择。使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句

'定义一个 a*2+b*2的计算题
'dim a,b,c
'a = int(inputbox("a="))
'b = int(inputbox("b="))
'inputbox输入时是字符型，要记住
'c = a*2+b*2
'msgbox(int(c))

'and or 
' ' dim a,b,c,d
' ' a = int(inputbox("a="))
' ' b = int(inputbox("b="))
' ' if a > 10 and b > 10 then
' ' msgbox("成立")
' ' c = a+b
' ' msgbox(int(c))
' ' else
' ' msgbox("a或b低于10")
' ' end if

'do loop
dim i
i=0
do
name= inputbox("请输入账号")
test = "admin"
pass = inputbox("请输入密码")
password = "123456"
if name = test and pass = password then
msgbox("账号密码窃取成功")
exit do
end if
if i>2 then 
msgbox("账号密码三次错误！")
exit do
else
msgbox("账号密码错误")
i=i+1
end if
loop